| Filename | (eval 46)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:48] |
| Statements | Executed 3895 statements in 3.60ms |
| Eval Invoked At | /Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm line 48 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 556 | 6 | 6 | 2.71ms | 2.71ms | Types::Standard::__ANON__[:16] |
| 1 | 1 | 1 | 14µs | 23µs | Types::Standard::BEGIN@2 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # spent 2.71ms within Types::Standard::__ANON__[(eval 46)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:48]:16] which was called 556 times, avg 5µs/call:
# 254 times (1.36ms+0s) by Type::Tiny::__ANON__[(eval 428)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]:16] at line 16 of (eval 428)[Sub/Quote.pm:3], avg 5µs/call
# 170 times (536µs+0s) by Type::Tiny::__ANON__[(eval 430)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]:16] at line 16 of (eval 430)[Sub/Quote.pm:3], avg 3µs/call
# 98 times (620µs+0s) by JSON::Schema::Modern::Document::_assert__path_to_resource at line 24 of (eval 299)[Sub/Quote.pm:3], avg 6µs/call
# 19 times (148µs+0s) by JSON::Schema::Modern::_assert__metaschema_vocabulary_classes at line 24 of (eval 360)[Sub/Quote.pm:3], avg 8µs/call
# 14 times (38µs+0s) by JSON::Schema::Modern::_assert__vocabulary_classes at line 24 of (eval 355)[Sub/Quote.pm:3], avg 3µs/call
# once (10µs+0s) by Type::Tiny::__ANON__[(eval 419)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]:16] at line 16 of (eval 419)[Sub/Quote.pm:3] | ||||
| 2 | 2 | 160µs | 2 | 32µs | # spent 23µs (14+9) within Types::Standard::BEGIN@2 which was called:
# once (14µs+9µs) by Types::Standard::BEGIN@30 at line 2 # spent 23µs making 1 call to Types::Standard::BEGIN@2
# spent 9µs making 1 call to strict::unimport |
| 3 | 556 | 72µs | return !!0 if ref $_[0]; | ||
| 4 | 556 | 69µs | return !!0 if not $_[0]; | ||
| 5 | 1668 | 502µs | return !!0 if ref(do { my $tmpstr = $_[0]; \$tmpstr }) ne 'SCALAR'; | ||
| 6 | 556 | 783µs | my $stash = \%{"$_[0]\::"}; | ||
| 7 | 556 | 2.01ms | return !!1 if exists($stash->{'ISA'}) && *{$stash->{'ISA'}}{ARRAY} && @{$_[0].'::ISA'}; | ||
| 8 | return !!1 if exists($stash->{'VERSION'}); | ||||
| 9 | foreach my $globref (values %$stash) { | ||||
| 10 | return !!1 | ||||
| 11 | if ref \$globref eq 'GLOB' | ||||
| 12 | ? *{$globref}{CODE} | ||||
| 13 | : ref $globref; # const or sub ref | ||||
| 14 | } | ||||
| 15 | return !!0; | ||||
| 16 | 1 | 5µs | } | ||
| 17 | ; |